Imekura ROM/Imekura ROM.iso/mac/Mac/SINDAN.DIR/00046.ls

Text File | 1995-07-17 | 8.3 KB | 256 lines

on startMovie
  global gcount, ghcount, ghentaicount, groomcntlist
  set gcount to 0
  set ghcount to 0
  set ghentaicount to 0
  set groomcntlist to [1, 0, 0, 0, 1, 0, 2]
end

on quizusel
  global gquizulist
  set gquizulist to []
  set quizulist to [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30]
  repeat with i = 1 to 10
    set listcount to count(quizulist)
    set randno to random(listcount)
    set quizuno to getAt(quizulist, randno)
    append(gquizulist, quizuno)
    deleteAt(quizulist, randno)
  end repeat
end

on textset
  global gquizulist, gcount
  set workno to getAt(gquizulist, gcount + 1)
  pictset(7, "Q" & workno, 7, 36, 185, 270)
end

on textsound
  global gquizulist, gcount
  set workno to getAt(gquizulist, gcount + 1)
  sound playFile 1, "@::AIF:Q" & workno
  repeat while soundBusy(1)
  end repeat
end

on selyes
  global gquizulist, gcount
  set workno to getAt(gquizulist, gcount + 1)
  if workno < 16 then
    hproc("UP")
  else
    hentaiproc("UP")
  end if
  incount(workno)
  set gcount to gcount + 1
end

on selno
  global gquizulist, gcount
  set workno to getAt(gquizulist, gcount + 1)
  if workno < 16 then
    hproc("DOWN")
  else
    hentaiproc("DOWN")
  end if
  set gcount to gcount + 1
end

on hproc ctype
  global ghcount
  if ctype = "UP" then
    set ghcount to ghcount + 1
    puppetSprite(6, 1)
    set the castNum of sprite 6 to the number of cast "HUP"
    updateStage()
    puppetSprite(6, 0)
  else
    set ghcount to ghcount - 1
    puppetSprite(6, 1)
    set the castNum of sprite 6 to the number of cast "HDWN"
    updateStage()
    puppetSprite(6, 0)
  end if
  if ghcount = 0 then
    puppetSprite(8, 0)
  else
    if ghcount < 0 then
      puppetSprite(8, 1)
      set the castNum of sprite 8 to the number of cast ("M" & abs(ghcount))
    else
      puppetSprite(8, 1)
      set the castNum of sprite 8 to the number of cast ("P" & ghcount)
    end if
  end if
end

on hentaiproc ctype
  global ghentaicount
  if ctype = "UP" then
    set ghentaicount to ghentaicount + 1
    puppetSprite(5, 1)
    set the castNum of sprite 5 to the number of cast "TUP"
    updateStage()
    puppetSprite(5, 0)
  else
    set ghentaicount to ghentaicount - 1
    puppetSprite(5, 1)
    set the castNum of sprite 5 to the number of cast "TDWN"
    updateStage()
    puppetSprite(5, 0)
  end if
  if ghentaicount = 0 then
    puppetSprite(9, 0)
  else
    if ghentaicount < 0 then
      puppetSprite(9, 1)
      set the castNum of sprite 9 to the number of cast ("M" & abs(ghentaicount))
    else
      puppetSprite(9, 1)
      set the castNum of sprite 9 to the number of cast ("P" & ghentaicount)
    end if
  end if
end

on nextproc
  global gcount
  if gcount < 10 then
    go("Q" & gcount + 1)
  else
    sound stop 1
    go(1, "RESLUT.DIR")
  end if
end

on incount quizno
  if quizno = 1 then
    set suplist to [1, 2]
  else
    if quizno = 2 then
      set suplist to [1, 5, 6]
    else
      if quizno = 3 then
        set suplist to [1, 2, 3, 6]
      else
        if quizno = 4 then
          set suplist to [1]
        else
          if quizno = 5 then
            set suplist to [2, 6]
          else
            if quizno = 6 then
              set suplist to [5, 6, 7]
            else
              if quizno = 7 then
                set suplist to [2]
              else
                if quizno = 8 then
                  set suplist to [3, 4]
                else
                  if quizno = 9 then
                    set suplist to [2, 3, 6]
                  else
                    if quizno = 10 then
                      set suplist to [5, 6]
                    else
                      if quizno = 11 then
                        set suplist to [2, 6, 7]
                      else
                        if quizno = 12 then
                          set suplist to [3, 4, 5, 6]
                        else
                          if quizno = 13 then
                            set suplist to [2, 5]
                          else
                            if quizno = 14 then
                              set suplist to [4, 5, 6, 7]
                            else
                              if quizno = 15 then
                                set suplist to [2, 3, 7]
                              else
                                if quizno = 16 then
                                  set suplist to [2, 3, 6, 7]
                                else
                                  if quizno = 17 then
                                    set suplist to [2, 3, 4]
                                  else
                                    if quizno = 18 then
                                      set suplist to [4, 5, 6, 7]
                                    else
                                      if quizno = 19 then
                                        set suplist to [1, 2]
                                      else
                                        if quizno = 20 then
                                          set suplist to [5, 6]
                                        else
                                          if quizno = 21 then
                                            set suplist to [1, 4]
                                          else
                                            if quizno = 22 then
                                              set suplist to [2, 4, 6]
                                            else
                                              if quizno = 23 then
                                                set suplist to [3, 4, 7]
                                              else
                                                if quizno = 24 then
                                                  set suplist to [1, 3, 6, 7]
                                                else
                                                  if quizno = 25 then
                                                    set suplist to [1, 3, 5]
                                                  else
                                                    if quizno = 26 then
                                                      set suplist to [3, 4, 5]
                                                    else
                                                      if quizno = 27 then
                                                        set suplist to [1]
                                                      else
                                                        if quizno = 28 then
                                                          set suplist to [1, 3, 5]
                                                        else
                                                          if quizno = 29 then
                                                            set suplist to [1, 3]
                                                          else
                                                            if quizno = 30 then
                                                              set suplist to [3, 4, 7]
                                                            end if
                                                          end if
                                                        end if
                                                      end if
                                                    end if
                                                  end if
                                                end if
                                              end if
                                            end if
                                          end if
                                        end if
                                      end if
                                    end if
                                  end if
                                end if
                              end if
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  pointset(suplist)
end

on pointset suplist
  global groomcntlist
  repeat with i = 1 to count(suplist)
    set workno to getAt(groomcntlist, getAt(suplist, i))
    setAt(groomcntlist, getAt(suplist, i), workno + 1)
  end repeat
  put groomcntlist
end